﻿Namespace QuanLyKhachHang
    Public Class ThongKeDoanhThuBLL
        Public Function ThongKeDoanhThu_DanhSachKhachHang(ByVal TrangThai As String, ByVal BatDau As Integer, ByVal KetThuc As Integer, ByVal TypeSearch As String, ByVal KhachHangId As Integer, ByVal TenKhachHang As String) As List(Of TKDT_DanhSachKhachHang)
            Try
                Dim doit As New ThongKeDoangThuDAL
                Return doit.ThongKeDoanhThu_DanhSachKhachHang(TrangThai, BatDau, KetThuc, TypeSearch, KhachHangId, TenKhachHang)
            Catch ex As Exception
                Throw ex
            End Try
        End Function
        Public Function ThongKeDoanhThu_DanhSachDonHang_Mua(ByVal TrangThai As String, ByVal KhachHangId As Integer, ByVal BatDau As Integer, ByVal KetThuc As Integer, ByVal TenNguoiMua As String, ByVal DiaChi As String) As List(Of TKDT_DanhSachDonHang_Mua)
            Try
                Dim doit As New ThongKeDoangThuDAL
                Return doit.ThongKeDoanhThu_DanhSachDonHang_Mua(TrangThai, KhachHangId, BatDau, KetThuc, TenNguoiMua, DiaChi)
            Catch ex As Exception
                Throw ex
            End Try
        End Function
        Public Function ThongTinTiepThi(ByVal IDDonHangBan As Integer) As Object
            Try
                Dim doit As New ThongKeDoangThuDAL
                Return doit.ThongTinTiepThi(IDDonHangBan)
            Catch ex As Exception
                Throw ex
            End Try
        End Function
        Public Function ThongKeDoanhThu_DanhSachDonHang_DaiLy(ByVal TrangThai As String, ByVal KhachHangId As Integer, ByVal BatDau As Integer, ByVal KetThuc As Integer) As List(Of TKDT_DanhSachDonHang_DaiLy)
            Try
                Dim doit As New ThongKeDoangThuDAL
                Return doit.ThongKeDoanhThu_DanhSachDonHang_DaiLy(TrangThai, KhachHangId, BatDau, KetThuc)
            Catch ex As Exception
                Throw ex
            End Try
        End Function
        Public Function ThongKeDoanhThu_KhachHang(ByVal KhachHangId As Integer, ByVal TrangThai As String, ByVal LoaiPhi As String, ByVal BatDau As Integer, ByVal KetThuc As Integer, ByVal TenNguoiMua As String, ByVal DiaChi As String) As Object
            Try
                Dim doit As New ThongKeDoangThuDAL
                Return doit.ThongKeDoanhThu_KhachHang(KhachHangId, TrangThai, LoaiPhi, BatDau, KetThuc, TenNguoiMua, DiaChi)
            Catch ex As Exception
                Throw ex
            End Try
        End Function
    End Class
End Namespace
